home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / animatin / anim_q2z / skater / skate_a.ctl < prev   
Encoding:
Text File  |  1995-04-26  |  2.7 KB  |  182 lines
  1. ;upload version
  2.  
  3. ;ANIMATE FRAMES OF FEMALE QUAD-BOT 
  4.  
  5. ;SAVE "A:\SKATE_A.CTL"
  6.  
  7. ;SKATE around a skating rink under the stars
  8.  
  9. ;need files
  10. ; RINK.3D2
  11. ; BACKGND0.PC1
  12.  
  13. ;need folder
  14. ; SKATER
  15.  
  16. ;by Kevin Fanning       04-04-94
  17.  
  18. new
  19.  
  20. ltoff a:ltoff b:ltoff c
  21.  
  22. perspec 1:zoom 17
  23. draft:view s:mono
  24.  
  25. group a:clrgrp
  26.  load3d "a:\rink.3d2"
  27.  
  28. group b:clrgrp
  29.  gosub LOADFS
  30.  
  31. group c:clrgrp
  32.  loadbak l,"a:\backgnd0.pc1",y
  33.  backgnd y,n
  34.  
  35. group d:clrgrp
  36.  
  37. f=0:f1=0:f2=0
  38.  
  39.  
  40. rstart "a:\SKATE",m
  41.  
  42.  
  43. gosub SKATE
  44.  
  45.  
  46. rstop
  47.  
  48. end
  49.  
  50.  
  51.  
  52. @SKATE
  53.  group b:clrgrp
  54.   gosub ASPLINE
  55.  
  56.  group c
  57.   f1=0
  58.  
  59.  for f=0 to 17
  60.    gosub SELECT
  61.    moveto c1x,s2x(f),c1z
  62.    grpcent c2x,c2y,c2z
  63.    cam2 0,-4500,500,c2x,c2y,c2z,0
  64.    select rink
  65.    superview
  66.    record
  67.     f1=f1+1:if f1>9 then f1=0
  68.  next f
  69.  
  70.  
  71.  group d:clrgrp
  72.   f1=0
  73.  
  74.  for f=0 to 18
  75.   if f1=0 then gosub KILL:gosub LOADFS
  76.   gosub SELECT
  77.   center a:setarb 0,-2200,0:rotate 0,0,s1x(f)
  78.   grpcent c2x,c2y,c2z
  79.   cam2 0,-4500,500,c2x,c2y,c2z,0
  80.   select rink
  81.   superview
  82.   record
  83.   f1=f1+1:if f1>9 then f1=0
  84.  next f
  85.  
  86.  
  87.  group c
  88.   gosub KILL:gosub LOADFS
  89.   f1=0:f1=1
  90.  
  91.   for f=1 to 17
  92.   if f1=0 then gosub KILL:gosub LOADFS
  93.    gosub SELECT
  94.    center a:setarb 0,-2200,0:rotate 0,0,-180:grpcent c1x,c1y,c1z
  95.    moveto c1x,s2y(f),c2z
  96.    grpcent c2x,c2y,c2z
  97.    cam2 0,-4500,500,c2x,c2y,c2z,0
  98.    select rink
  99.    superview
  100.    record
  101.    f1=f1+1:if f1>9 then f1=0
  102.  next f
  103.  
  104.  
  105.  group d:clrgrp
  106.   f1=0:f2=1
  107.  
  108.  for f=0 to 17
  109.   if f1=0 then gosub KILL:gosub LOADFS
  110.   gosub SELECT
  111.   center a:setarb 0,2200,0:rotate 0,0,s1x(f)
  112.   grpcent c2x,c2y,c2z
  113.   cam2 0,-4500,500,c2x,c2y,c2z,0
  114.   select rink
  115.   superview
  116.   record
  117.   f1=f1+1:if f1>9 then f1=0
  118.  next f
  119.  
  120. return
  121.  
  122.  
  123. @KILL
  124.  kill f0,f1,f2,f3,f4,f5,f6,f7,f8,f9
  125.  
  126. return
  127.  
  128.  
  129. @SELECT
  130.  clrgrp
  131.  if f1=0 then select f0
  132.  if f1=1 then select f1
  133.  if f1=2 then select f2
  134.  if f1=3 then select f3
  135.  if f1=4 then select f4
  136.  if f1=5 then select f5
  137.  if f1=6 then select f6
  138.  if f1=7 then select f7
  139.  if f1=8 then select f8
  140.  if f1=9 then select f9
  141.  
  142. return
  143.  
  144.  
  145. @LOADFS
  146.   clrgrp
  147.   merge3d "a:\skater\f0.3d2"
  148.   merge3d "a:\skater\f1.3d2"
  149.   merge3d "a:\skater\f2.3d2"
  150.   merge3d "a:\skater\f3.3d2"
  151.   merge3d "a:\skater\f4.3d2"
  152.   merge3d "a:\skater\f5.3d2"
  153.   merge3d "a:\skater\f6.3d2"
  154.   merge3d "a:\skater\f7.3d2"
  155.   merge3d "a:\skater\f8.3d2"
  156.   merge3d "a:\skater\f9.3d2"
  157.   scale 50:scale 50:scale 50
  158.   if f2=0 then moveto -1500,-2200,0:align b,0
  159.   if f2=1 then moveto 1500,2200,0:align b,0:center g:rotate 0,0,180
  160.   clrgrp:select f0:grpcent c1x,c1y,c1z
  161.  
  162. return
  163.  
  164.  
  165. @ASPLINE
  166.  defpt 1,0,0,0
  167.  defpt 1,-90,0,0
  168.  defpt 1,-180,0,0
  169.  defspline 1,19,l
  170.  
  171.  defpt 2,2200,-2200,0
  172.  defpt 2,0,0,0
  173.  defpt 2,-2200,2200,0
  174.  defspline 2,19,l
  175.  
  176. return
  177.  
  178.  
  179. end
  180.  
  181.  
  182.